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ABSTRACT 

A Project Solo module which explores set theory is 
presented. The module allows students to define three sets by listing 
their elements. The student is then required to list the elements of 
a new set using the elements in two or more of the previous sets. The 
program analyses the student* s answers and tells him what, if 
anything, is wrong. A new version of a grading program is also 
listed. ( JY) 



°°f ED057 6 02 



mim It "■ *’ ■ • i il'Lfl.! i rfs : ■ !•' .'••••,'■•' ; ■ i-, •. : 




i||i 

4fira 



lifli:! ?• H - i-i.p ; ^ 1 * ! • = ; '.'n-' 



£||^ ?i: ; ii : I 

D*pM>lptM;of C«MpM«r Sdct>cc : s ; : • . r 



U t OI^ANTMCMT Or H*AiTH 
louCAno«ft«yi*rn 
Office or IDUCA . 

IINIS OOCUMINr has l(! 1 **C 

OUCfD tfcACTlIf AS RCOMO I AOM 
1*t n* so* OH 0«GA*CAl»O» owe 
mximG «r o# vt iw on o*s 

»OniS SfATfO DO M)r NtCUSAKiU 
MWUMHT CUtCUM, OfVICl Of (DU 
CATKM *OSii*on on nouOr 






Newsletter No . 9 



January 22, 1971 



Set Theory and Computers 

Most people think of computers as doing numerical computation 
® nl y # ®nd much of the application of computers to Education has 
bi ®. se< t in thi f direction. Last stammer. Miss Judy Richardson 
or Westinghouse High School developed a program which allows stu- 
dents to explore set theory. Since this is an area of Mathematics 
that does not utilize computation in the ordinary sense, there is 
c ” a ^ ei '9 e to developing such programs than meets the eye. 

Judy 8 work is all the more remarkable when you consider that she 
had never used a computer before . 

Inspired by this work, Frank Wimberly of our staff is devel- 
oping two variations on Judy's program which he describes in the 
next section. 



Variations on the Richardson Program 

The first variation asks the student to define three sets A, 

B, and C by listing their elements. The student is then required 
to list the elements of (AnB)u C. The program analyzes the stu- 
dent s answer and tells him why it is wrong (if it is) . Hence it 
is a tutorial program, but one based on data the student selects. 
The attached sample interaction gives an example of what the pro- 
gram looks like to a student user. 

Subroutines for taking unions, intersections, and relative 
complements are used to compute the correct answer and to compare 
the correct answer with the student's answer. 

The second variation being planned will permit the student 
to specify the operations to be performed on the sets as well as 
their elements. This will involve writing a parser for interpret- 
ing set theoretic expressions much like those used in computer 
language compilers for interpreting arithmetic expressions. The 
large amount of student control allowed in this variation suggests 
classifying it as Category II. Students and teachers are invited 
to try the program and to contribute to its development by supply- 
ing comments. While in NBS simply type: 



- 0 
- ERIC 



1 



>RUN 166FW /SETS/ 



2 



Advanced Set Theory 



Progress is being made on developing an experimental module 
that utilizes CRS , an advanced set- theoretic information retrieval 
system available through our terminals. Dr. Siegfried Treu of 
the National Bureau of Standards in Washington is preparing this 
module for us, and his preliminary report looks promising. When 
we have had a chance to evaluate all the potential of this approach 
we will probabJv schedule a short in-service institute to explain 
the CRS system. 



Revision of /GRADE/ 

A new version of 166TD /GRADE/ has been prepared. It incor- 
porates changes suggested by Mr. Robert Gillespie. He finds his 
students appreciate his posting the grade bar-graph. 

-C0PY 166TD /GRADE/ T0 TEL 
10O VAR»ZER0 DIM PC I0> »GCQs 100) 

110 INTEGER A#T« J» Jl# I# 1 I 
120 BS*”" 

130 MS*" — MEAN” 

1 40 SS*" 1 STD” 

ISO DS«” I” 

160 ES»” I” 

170 PR.”WHAT IS MAXIMUM GRADE POSSIBLE”! 

180 INPUT M 

190 PR. "ENTER AS MANY GRADES AS YOU WISH AFTER EACH •?••" 

195 PR. "SEPARATE GRADES WITH COMMAS. USE CARRIAGE RETURN” 

197 PR. "IF YOU NEED MORE THAN ONE LINE.” 

200 PR. "ENTER 9999 WHEN FINISHE0" 

210 PR. 

220 INPUT G<J> FOR J*1 STEP 1 UNTIL GCJ-1>*9999 

230 LET J*J-2 

240 FOR Jl-I TO J 

250 IF GCJ1>«*M THEN GOTO 280 

260 PR. "GRADE "IG(JI)I" EXCEEDS MAX- INPUT ANOTHER GRADE." 

270 INPUT GC J I > GOTO 250 

280 LET R1 *RI *6< Jl > LET R2«R2*GC J1 >*G< Jl > 

290 LET G1-GCJ1 >*100/M LET SI*SI*GI LET S2«S2*G1*GI 

300 IF Gl»99.9 LET G1«GI-1 

310 LET GI-Gl/IO+t LET PCGI >«PC Gl > ♦ I 

320 NEXT Jl 

330 D 1 "SORT C C R2-C R 1 *R 1 / J) >/CJ-l> > 

340 D2»S0RT< CS2-CS1*S1/J> >/C J-l > > 

350 G0SUR 530 

355 PR* PR. "RAW”»TABC5>* "PERCENT” 

360 PR* 1 1 TABC 5> * I 

370 LET A*INTCCSl/J+5>/10>*10 LET T*INTC < D2*5 > / 1 0> * 1 0 
380 F0R 1*1 TO 10 
385 LET 1 1*1*10 

390 IF C 1 1 » A-T> AND CIX=A + T> THEN LET PS*DS LET RS»ES ELSE 

LET PS*B$ LET Rf*BS 

400 IF A=I1 THEN LET RS*M$ 

410 IF CA-T*11> 0R < A+T* 1 1 > THEN LET R$*S$ 

0 420 PR. TABC l 0 ) j C PR ."<*»"* F0R 0*1 T0 PC I > J PR. TABC50JIPS 

FRIT 430 PR * I*M/10> ITABC 5) » I 1 JTABC *R$ 

msjfiasdij 4 40 NEXT I ^ 



3 



450 PR. G0SUB 530 

460 PR. “THE UNSCALED MEAN IS “XR1/J 

470 PR. “THE UNSCALED STANDARD DEVIATION IS “sDl 

480 GOSUB 530 

490 PR. “THE SCALED MEAN IS "xSl/J 

500 PR. “THE SCALED STANDARD DEVIATION IS “SD2 

510 GOSUB 530 

520 END 

530 PR. C PR • t FOR 0=1 TO 303 PR. PR. RETURN 



WHAT IS MAXIMUM GRADE POSSIBLE? 150 

ENTER AS MANY GRADES AS YOU WISH AFTER EACH * ?*• 

SEPARATE GRADES WITH COMMAS. USE CARRIAGE RETURN 
IF YOU NEED MORE THAN ONE LINE. 

ENTER 9999 WHEN FINISHED 

? 78. 98. 88. 56.77.45# 1 1 . 198.33# 1 1 1 .45.66.98. 100.76.55.87.86.96 
798.43.66.63.96. 133. 136.78.98.75.66.78.88.98.76.73.77.9999 
GRADE 198 EXCEEDS MAX. INPUT ANOTHER GRADE. 

7 98 
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THE UNSCALED MEAN IS 79.05555556 

THE UNSCALED STANDARD DEVIATION IS 25.60462508 



THE SCALED MEAN IS 52.7037037 

THE SCALED STANDARD DEVIATION IS 17.06975005 

<3 

ERIC = 

I 
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INTRODUCTION TO 



SET THEORY 




0 ^ This module allows you "to create three different sets with 
elements (in this case numbers) of your choice. 

^ The machine will then try to match wits with you in 'deciding 
which elements are in (A D B) U C. 

^ To run the program type : -NBS 

>RUN 166FW /SETS/ 
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SAMPLE INTERACTION WITH /SETS/ 



2 



THIS IS AN EXERCISE ON THE ELEMENTARY 0PERAT I 0NS 0F 
SET THEORY--UNION < DENOTED BY *U*> AND I NTERSECTI ON C DEN0TED 
BY * I * ) • HENCE * A I B * MEANS *A I NTERSECTI 0N B» AND *A U B* 
MEANS * A UNI0N B*. 



AT THIS P0INT Y0U MAY DEFINE THE ELEMENTS 0F THE SET 
A < WHEN THE OUESTI0N MARK APPEARS TYPE AN INTEGER 
NUMBER 0THER THAN 999 CUNLESS Y0U WANT A T0 BE EMPTY t • 
REPEAT THIS PR0CE5S UNTIL A HAS AS MANY ELEMENTS AS 
Y0U LIKE AND THEN TYPE 999 WHEN THE NEXT QUEST I 0N MARK 
APPEARS. IF Y0U WANT A T0 BE THE. EMPTY SET TYPE 999 
RIGHT AWAY. 

? 1 0 
? 15 
? 17 
7 22 
7 35 
7 27 
751 
7999 

N0W DEFINE B IN THE SAME WAY. 

7 15 
7 1 6 
7 17 
727 
7 38 
7 A 1 
7 29 
7 999 

NOW DEFINE C. 

727 
738 
7 64 
7 37 
751 
7 49 
7 102 
7 999 




N0W TYPE THE ELEMENTS 0F < A I B) U C. TYPE ONE ELE- 
MENT PER QUESTION MARK. TYPE 999 AFTER YOU HAVE TYPED THE LAST 
ELEMENT. IF CA I B) U C IS EMPTY TYPE 999 RIGHT AWAY. 

727 
7 22 
7 1 7 
7 49 
7.10 
7999 

THE ELEMENTS OF CA I B> U C ARE EITHER IN C OR THEY 
ARE IN BOTH A AND B. 

YOU LEFT 0UT THE FOLLOWING ELEMENTS. 

ELEMENTS OF C. 

38 64 37 51 102 

ELEMENTS OF A I B. 

15 

YOU LISTED THE FOLLOWING AS ELEMENTS OF CA I B) U C 
BUT THEY ARE NOT IN C NOR ARE THEY IN BOTH A AND B. 

22 10 

WOULD YOU LIKE T0 TRY AGAIN? tr 

7 YES ° 



N0W TYPE THE ELEMENTS 0F (A I R> U C. TYPE 0NE ELE- 
MENT PER QUESTI0N MARK. TYPE 999 AFTER Y0U HAVE TYPED THE LAST 
ELEMENT. IF CA I B) U C IS EMPTY TYPE 999 RIGHT AWAY. 

? 1 5 
? 17 
? 27 
? 38 
? 64 
? 37 
? 51 

? 49 '>1 

7 102 

7999 

VERY G00D • THAT’S EXACTLY RIGHT. 

W0ULD Y0U LIKE T0 TRY AGAIN? 

7 N0 

LISTNH 
5 BASE O 

10 DIM I C 20) * JC 20) * K< 20) * AC 20) * BC 20) » C<20) » DC 20) » EC 20) * FC 20) 
*G(20) 

20 PR. "THIS IS AN EXERCISE 0N THE ELEMENTARY OPERATIONS 0F 
SET THEORY- -UNION (DENOTED BY ’U') AND INTERSECTION (DENOTED 
BY *1’). HENCE ’A I B’ MEANS ’A INTERSECTION B’ AND ’A U B* 
MEANS ’A UNION B ’ • " 

29 PR. 

30 PR* "AT THIS POINT YOU MAY DEFINE THE ELEMENTS OF THE SET" 

31 PR. "A. WHEN THE QUESTION MARK APPEARS TYPE AN INTEGER ” 

32 PR. "NUMBER OTHER THAN 999 (UNLESS YOU WANT A TO BE EMPTY)." 

33 PR. "REPEAT THIS PROCESS UNTIL A HAS AS MANY ELEMENTS AS " 

34 PR. "YOU LIKE AND THEN TYPE 999 WHEN THE. NEXT QUESTION MARK" 
3 b PK . "• A FTE , '.;;S. IK YOU WANT A TO BE THE EMPTY SET TYPE 999" 

36 PR. "RIGHT AWAY." 

40 L = 0 
50 L=L+ 1 
60 INPUT A(L) 

70 IF A ( L ) < >999 THEN 50 
80 AC 0) =L - 1 

90 PRINT "NOW DEFINE B IN THE SAME WAY." 

1 00 L=0 
1 10 L=L+ 1 
1 20 INPUT BC L) 

130 IF BCL)<>999 THEN 110 
140 B( 0) =L - 1 

150 PRINT "NOW DEFINE C." 

1 60 L = 0 
1 70 L=L+ 1 
180 INPUT C ( L ) 

190 IF C(L)<>999 THEN 170 
200 C(0)=L-1 

215 PR. "NOW TYPE THE ELEMENTS OF (A I B) U C. TYPE ONE ELE- 
MENT PER QUESTION MARK. TYPE 999 AFTER YOU HAVE TYPED THE LAST 
ELEMENT. IF CA I B) U C IS EMPTY TYPE 999 RIGHT AWAY." 



§ 



ERiC 



220 L=0 

230 L=L+1 

240 INPUT DCL> 

250 IF DC L > < >999 THEN 230 

260 D( 0 > =L - 1 

270 FOR L=0 TO 20 

280 I (L)=A(L) 

290 J(L)=B(L) 

300 NEXT L 



310 G0SUB 6000 
320 FOR L=0 T0 20 
330 ICL/=KCL) 

340 JCL)=CCL) 

350 NEXT L 
360 G0SUB 5000 
370 FOR L=0 T0 20 
3&0 EC L) =K CL) 

390 NEXT L 

400 FOR L = U T0 20 



4 1 0 
420 
430 
440 
450 
460 
470 
480 
490 

5 00 
5 10 
5 20 
5 30 
540 
550 
5 60 
5 70 
580 
585 
590 
ARE- 
600 



K< 0> 



20 



I CL-)=ECL> 

JCL) = DCL> 

NEXT L 
G0SUB 4000 
F0R L=0 T0 
FCL)=KCL> 

NEXT L 
F0R L*0 TO 
I CL> =DCL > 

JC L) ~E<L > 

NEXT L 
GOSUR 4000 
FOR l«0 TO KCO) 

G<L>»KCL> 

NEXT L 
IF F«0)o0 
IF GC0)»0 
PRINT "VERY 
G0 TO 1000 

PR. "THE ELEMENTS 0F CA I B> U C ARE EITHER IN C OR THEY 
IN B0TH A AND B." 

IF FC0)«O THEN 870 



THEN 590 
THEN 590 
GOOD. THAT’S 



EXACTLY RIGHT. 



610 PRINT "YOU LEFT OUT THE FOLLOWING ELEMENTS." 
620 F0R L«0 TO 20 
630 I C L > s*CCL > 

640 JCD=FCL> 

650 NEXT L 

660 60SUB 6000 

670 IF KCOJnO THEN 720 

680 PRINT "ELEMENTS OF C." 

690 PRINT K C L > J FOR L= 1 T0 KCO) 



720 FOR L=0 TO 20 
730 ICL)=ACL> 

740 JCL) =BC L > 

750 NEXT L 
760 GO SUB 6000 
770 FOR L=0 TO 20 
780 ICL)=KCL) 

790 JCL)=FCL> 

800 NEXT L ' • 

810 GO SUB 6000 

820 IF K C 0 > = 0 THEN 870 

327 PRINT " ° 

830 PRINT "ELEMENTS 0F A I B." - 

8 40 PRINT K C L > J FOR La 1 TO KCO) 

870 IF GC 0) = 0 THEN 950 

880 PR. "YOU LISTED THE FOLLOWING AS ELEMENTS OF CA IB) U C 
4 BUT THEY ARE NOT IN C NOR ARE THEY IN BOTH A AND B." 

FRir 890 ?RINr G < L> * FOR Lai TO GC 0 > 

1: > v : 9nn print *• ” 

950 PRINT "WOULD YOU LIKE TO TRY AGAIN?" 7 



5 



960 INPUT A$ 

970 IF A$<> "NO" THEN 2! 5 * ‘ 

980 G0 T0 1030 

1000 PRINT " W0ULD Y0U LIKE T0 TRY AGAIN?” 
1010 INPUT A$ 

1020 IF A$o”N0" THEN 30 
1 030 END 

4 000 IF I(0X>0 THEN 4030 
4010 K( 0) =0 
4020 RETURN 

4030 IF J< 0) <>0 THEN 4080 
4040 F0R L=0 T0 ICO) 

4050 KCL)=ICL) 

4060 NEXT L 
4070 RETURN 
4080 Z=0 

4090 F0R L= 1 T0 ICO) 

4100 Y = 0 

4 110 F0R M= 1 T0 JC 0) 

4120 IF ICDoJCM) THEN 4150 
4 130 Y = 1 
4140 M=JC0) 

4150 NEXT M 

4160 IF Y=1 THEN 4190 

4170 Z = Z+ 1 

4180 KCZ)=ICL) 

4190 NEXT L 
4200 KCO=Z 
4210 RETURN 

5000 IF I C 0 ) <> 0 THEN 5050 
5010 F0R 11=0 T0 JCO) 

5020 KC I 1 )=JC ID 
5030 NEXT II 
5040 RETURN 

5050 IF JC 0) <>0 THEN 5100 
5060 F0R 11=0 T0 ICO) 

5070 KC I 1 ) = I C I 1 ) 



5190 IF ICI1)=ICI2) THEN 5230 

5200 NEXT 12 

5210 I 3 = K C 0 ) + 1 

5215KC0)=I3 

5220 KC I3) = I C I 1 ) 

5230 NEXT II 
5240 RETURN 

6000 IF IC0)<>0 AND JC0X>0 THEN 6030 
6010 KC 0) =0 
6020 RETURN 



5080 NEXT II 
5090 RETURN 
5100 12=1 CO) 

5110 IC0)=IC0)+JC0) 

5120 F0R 11=12+1 T0 ICO) 
5 130 I C I 1 )=JC I 1-12) 

5140 NEXT II 
5150 KC 1 ) = IC 1) 

5160 KC 0 ) = 1 

5170 FOR I 1=2 T0 I CO) 

5 180 FOR 12=1 T0 I 1 - 1 



6030 K C 0 ) =0 



6040 F0R 11=1 T0 ICO) 

6050 F0R Jl=l T0 JCO) 

6060 IF ICIDoJCJl) THEN 6100 
6 070 K C 0.) =K C 0 ) + 1 
6080 K 1 =K CO) 

6090 KCK1 ) = I C I 1 ) 



6095 J1=JC0) 
6100 NEXT J1 
6 110 NEXT I 1 
6120 RETURN 



